﻿Imports StartFrame.Web.BR.Helpers
Imports StartFrame.Web.Handlers
Imports StartFrame.BR.Web.GLP.Abms
Imports StartFrame.BR.Web.Helpers
Imports StartFrame.BR.Web.Mantenimiento.Articulos

Namespace Handlers.Mantenimiento.Procesos

    Public Class Importacion
        Inherits GLPBaseHandler

        'Constructor
        Public Overrides Sub InicializarDatos()
            MyBase.InicializarDatos()
            _Abm = New StartFrame.BR.Web.GLP.Abms.Impo
            _Pagina = "~/UserPages/Mantenimiento/Procesos/Importacion.js"
        End Sub

        'Proceso de importación del archivo
        Public Sub ImportarArchivo()
            Dim rs As ResultSet
            If _Context.Request.Files.Count > 0 Then
                'Si seleccionó un archivo
                Try
                    'Importación
                    Dim body As System.IO.Stream = _Context.Request.Files(0).InputStream
                    Dim encoding As System.Text.Encoding = _Context.Request.ContentEncoding
                    Dim reader As System.IO.StreamReader = New System.IO.StreamReader(body, encoding)

                    'Ejecuta un proceso en BR
                    rs = CType(_Abm, Impo).Importar(reader.ReadToEnd(), _RequestData("tableName"))

                Catch ex As Exception
                    rs = New ResultSet()
                    rs.success = False
                    rs.message = ex.Message
                End Try
            Else
                'Sin archivo para importar
                rs = New ResultSet()
                rs.success = False
                rs.message = "No se seleccionó ningún archivo"
            End If
            'Retorna el texto con el resultado
            _Context.Response.Write(rs.ToJsonString())
        End Sub
    End Class

End Namespace